home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / getcje.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  211 b   |  9 lines
  1.       subroutine getcje
  2.       implicit double precision (a-h,o-z)
  3. c spice version 2g.6  sccsid=cje 3/15/83
  4.       common /cje/ maxtim,itime,icost
  5.       call second(xtime)
  6.       itime=xtime
  7.       return
  8.       end
  9.